object frmDocSweep: TfrmDocSweep
  Left = 399
  Top = 167
  ActiveControl = UpDown1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'DocSweep Setting'
  ClientHeight = 123
  ClientWidth = 266
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PopupMenu = PopupMenu
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object MRDBox: TFileListBox
    Left = 0
    Top = 0
    Width = 266
    Height = 116
    TabStop = False
    Align = alClient
    Color = clBtnFace
    Ctl3D = True
    ExtendedSelect = False
    FileType = [ftHidden, ftSystem, ftArchive, ftNormal]
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    IntegralHeight = True
    ItemHeight = 16
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Visible = False
  end
  object btOK: TButton
    Left = 24
    Top = 85
    Width = 75
    Height = 25
    Hint = 'Accept setting'
    Caption = '&OK'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnClick = btOKClick
  end
  object btCancel: TButton
    Left = 168
    Top = 85
    Width = 75
    Height = 25
    Hint = 'Cancel setting'
    Cancel = True
    Caption = '&Cancel'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    OnClick = btCancelClick
  end
  object UpDown1: TUpDown
    Left = 140
    Top = 46
    Width = 15
    Height = 24
    Hint = 'Click to set number'
    Associate = Edit1
    Min = 0
    Max = 25
    ParentShowHint = False
    Position = 0
    ShowHint = True
    TabOrder = 0
    Thousands = False
    Wrap = False
  end
  object Edit1: TEdit
    Left = 117
    Top = 46
    Width = 23
    Height = 24
    MaxLength = 2
    TabOrder = 1
    Text = '0'
  end
  object Panel1: TPanel
    Left = 2
    Top = 10
    Width = 265
    Height = 29
    BevelOuter = bvNone
    Caption = 'Titles allowed before auto-clearing:'
    TabOrder = 5
  end
  object DeleteTimer: TTimer
    Interval = 10000
    OnTimer = DeleteTimerTimer
    Left = 123
    Top = 83
  end
  object TrayIcon: TPGTrayIcon95
    Icon.Data = {<image000.ico>}
    Animation.Interval = 0
    Animation.Options = aoIconsInExe
    Hint = 'DocSweep is running'
    OnClick = TrayIconClick
    OnDblClick = TrayIconDblClick
    PopupMenu = PopupMenu
    Left = 220
    Top = 44
  end
  object PopupMenu: TPopupMenu
    AutoPopup = False
    OnPopup = PopupMenuPopup
    Left = 2
    Top = 43
    object mnuSettings: TMenuItem
      Caption = '&Setting...'
      Default = True
      ShortCut = 0
      OnClick = mnuSettingsClick
    end
    object mnuClose: TMenuItem
      Caption = '&Close...'
      ShortCut = 0
      OnClick = mnuCloseClick
    end
    object mnuQuickClear: TMenuItem
      Caption = '&QuickClear'
      ShortCut = 0
      OnClick = mnuQuickClearClick
    end
    object N1: TMenuItem
      Caption = '-'
      Hint = 'On'
      ShortCut = 0
    end
    object mnuHelp: TMenuItem
      Caption = '&Help...'
      ShortCut = 0
      OnClick = mnuHelpClick
    end
    object mnuAbout: TMenuItem
      Caption = '&About...'
      ShortCut = 0
      OnClick = mnuAboutClick
    end
    object N2: TMenuItem
      Caption = '-'
      Hint = 'On'
      ShortCut = 0
    end
    object mnuRegistration: TMenuItem
      Caption = '&Registration...'
      ShortCut = 0
      OnClick = mnuRegistrationClick
    end
    object mnuRegNumber: TMenuItem
      Caption = 'Reg &Number...'
      ShortCut = 0
      OnClick = mnuRegNumberClick
    end
  end
end